home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / PowerLisp 1.1 / Library / defpackage.lisp < prev    next >
Encoding:
Text File  |  1994-03-25  |  981 b   |  20 lines  |  [TEXT/ROSA]
  1. : ~A~%"
  2.                         opt))
  3.                 (ecase (car opt)
  4.                     (:size nil)        ;; ignore this for now
  5.                     (:nicknames (rename-package ',name ',name (cdr opt)))
  6.                     (:shadow (shadow (cdr opt) ',name))
  7.                     (:shadowing-import-from (shadowing-import (cdr opt) ',name))
  8.                     (:use (use-package (cdr opt) ',name))
  9.                     (:import-from (import (cdr opt) ',name))
  10.                     (:intern (dolist (sym (cdr opt))
  11.                                 (intern sym ',name)))
  12.                     (:export (export (cdr opt) ',name))))
  13.                 package)))
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20.